home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / GETPSTR.BAS < prev    next >
BASIC Source File  |  1997-02-11  |  813b  |  35 lines
  1.  
  2.     'getpstr.bas - Get information using the GetProfileString API call
  3.  
  4.     open "kernel.dll" for dll as #kernel
  5.  
  6.     appName$ = "windows"
  7.     keyName$ = "device"
  8.     default$ = ""
  9.  
  10.     'add an ASCII zero so that Liberty BASIC will not pass a copy of result$
  11.     'into the API call, but a pointer to result$
  12.     result$ = "Carl                                             "+chr$(0)
  13.     size = 50
  14.  
  15.     calldll #kernel, "GetProfileString",_
  16.         appName$ as ptr,_
  17.         keyName$ as ptr,_
  18.         default$ as ptr,_
  19.         result$ as ptr,_
  20.         size as short,_
  21.         result as short
  22.  
  23.     close #kernel
  24.  
  25.     'display the retrieved information up to but not including the
  26.     'terminating ASCII zero
  27.     print left$(result$, instr(result$, chr$(0)) - 1)
  28.  
  29.     input r$
  30.  
  31.  
  32.  
  33.  
  34.  
  35.